﻿<!--#include file="mymin.asp"-->
<%
dim Rs,Sql,id,act
act=request.QueryString("act")
ID=int(request.QueryString("ID"))

if act=1 then

	set Rs=Server.CreateObject("ADODB.Recordset")
	Sql="select active from 74hu_link Where ID="&ID
	Rs.open Sql,myconn,1,3
	if not (rs.eof and rs.bof) then
		Rs("active")=0
		Rs.update()
%>
<card title='友链审核成功!' ontimer='mymin_link.asp?sid=<%=sid%>'><timer value='5'/>
<p>友链审核成功!正在返回...<%
	else
%><card  title="待审网站"><p>找不到该网站,可能被删除了!<br/><%
	end if
	rs.close
	set rs=nothing
elseif act=2 then
	myconn.execute("update 74hu_link Set active=0 where active=1")
%>
<card title='全部友链审核成功!' ontimer='mymin_link.asp?sid=<%=sid%>'><timer value='5'/>
<p>友链审核成功!正在返回...
<%
end if
call Last%>